<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../../../inc/conn.asp"-->
<!--#include file="../common/u.asp"-->
<%links="sms"
conn.execute("update sms set isRead=1 where type<>'1' and uid='"&uid&"'")
'分页-------------------------------------------------------
set Rs=server.CreateObject("ADODB.RecordSet")
sql="select count(sortid) from (Select ROW_NUMBER() OVER (order by id desc) as sortid,* From sms) as TempTable where 1=1 and uid='"&uid&"'"
Pager_Pagesize=10 '每页记录数
Rs.open sql,conn,1,1
Pager_TotalRecord=Rs(0) '总记录数
Rs.close
Pager_PageCount=int((Pager_TotalRecord/Pager_Pagesize)+0.99999) '计算总页数
CurrentPage=Request("page") '当前页
if CurrentPage=0 then CurrentPage=1
'如果不为数字则直接设置页码为1
if isnumeric(CurrentPage)=False Or CurrentPage="" then
	CurrentPage=1
'如果当前页数大于总页数，则直接设置页码为1
elseif  Clng(CurrentPage)>Pager_PageCount then
	CurrentPage=1
end if
Fieldsname=" id,uid,[Order],[Content],type,isRead,addtime,sortid"
orderBy=" Order by sortid asc"
'拆分SQL语句，必须是select开头，有唯一标识的列
if instr("select",sql)<>-1 then
	if CurrentPage = 1 then
		sql = replace(sql,"select count(sortid)"," select  top " & Pager_Pagesize  & Fieldsname)
	else  
		sql = replace(sql,"select count(sortid)"," select  top " & Pager_Pagesize   & Fieldsname) & " and sortid >(select max(sortid) from (" & replace(sql,"select count(sortid)"," select  top " & Pager_Pagesize * (CurrentPage - 1)  & Fieldsname) & orderBy & ") AA)"
	end if
end if
sql = sql & orderBy
Rs.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>站内消息</title>
<link href="favicon.ico" rel="shortcut icon" type="image/x-icon"/>
<link rel="stylesheet" type="text/css" href="/css/style.css" />
<script type="text/javascript" src="/js/jquery.min.js"></script>
</head>
<body>

<!--#include file="../../common/top.asp"-->




<div class="fullwidth">
	<div class="place ">
		<a href="/">首页</a> &gt; <a href="/user">会员中心</a> &gt; 站内消息
	</div>
</div>
<!--main-->
<div class="fullwidth bg1">
	<div class="main">
		
		
        
        <!--#include file="../common/left.asp"-->
        
		
		<div class="right_show f_r">
			<div class="title_4">
				<h2>站内消息</h2><div></div>
			</div>
			<div class="clear20"></div>
			<table class="stable stable_2 message_box_1" style="width:700px; overflow:hidden">
               
			    <%do while not Rs.eof
				if rs("type")="1" then
				%>
				<tr>
					<td class="stable_2_1">
						<div class="send" style="float:left">
							<div class="arrow"></div>
							<p><%=rs("addtime")%></p>
							<p><%=rs("content")%></p>
						</div>
					</td>
				</tr>
                <%else%>
                <tr>
					<td class="stable_2_2">
						<div class="send" style="float:right">
							<div class="arrow1"></div>
							<p><%=rs("addtime")%></p>
							<p><%=rs("content")%></p>
						</div>
					</td>
				</tr>
                <%
				end if
				Rs.movenext
				loop
				Rs.close
				Set Rs=nothing
				%>
			</table>
            
             <div class="clear20"></div>
            <div class="page">
							<%
							if CurrentPage<=1 then
							pageview="<a><</a>"
							else
							pageview="<a href='/user/sms?page="&CurrentPage-1&"'><</a>"
							end if
							for tp = -10 to 9
							if Pager_PageCount>=tp+page and tp+page=>1  then 
							if trim(tp+page)=trim(request("page")) then
							pageview=pageview+"<a class='cur_page'>"&tp+page&"</a>"
							else
							pageview=pageview+"<a href='/user/sms?page="&tp+page&"'>"&tp+page&"</a>"
							end if
							end if
							next
							if Pager_PageCount<CurrentPage+1 then
							pageview=pageview+"<a>></a>"
							else
							pageview=pageview+"<a href='/user/sms?page="&CurrentPage+1&"'>></a>"
							end if
							response.Write pageview
							%>
						</div>
            
			<div class="clear20"></div>
            
		  <div class="clear20"></div>
            <form name="formreg" method="post" action="" class="messageform" onSubmit="return myjobchk();">
				<textarea name="content" class="textarears"></textarea>				
				<input type="submit" value="提交留言" class="submit" />
                <input type="hidden" name="t" value="y" />
			</form>
			
			<div class="clear20"></div>
           
			<div class="clear20"></div>
			
		</div>
		
		
	</div>
</div>

<div class="clear"></div>




<!--#include file="../../common/footer.asp"-->



</body>
</html>
<%if request.Form("t")="y" then
content=checkstr(inHTML(request.Form("content")))

if content="" then
response.write"<script>alert('内容不能为空');</script>"
response.write"<script>window.history.back(-1);</script>"
response.end
end if

set rsx=server.createobject("adodb.recordset")
sql="select * from sms "
rsx.open sql,conn,1,3
rsx.addnew
rsx("uid")=uid
rsx("content")=content
rsx("type")=1
rsx.update
response.write"<script language=JavaScript>{window.alert('提交成功');window.location.href='/user/sms';}</script>"
rsx.close
set rsx=nothing
end if
%>